home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESMENU1.S < prev    next >
Text File  |  1993-03-26  |  2KB  |  74 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Menu Manager routines 1 of 2.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; menu_bar
  17. ; menu_icheck
  18. ; menu_ienable
  19. ; menu_tnormal
  20. ;-------------------------------------------------------------------------
  21.  
  22.           globl     _menu_bar
  23. _menu_bar:
  24.           move.l    #$1E010101,d0       ; AControl  30,1,1,1
  25.           bra.b     menu_do
  26.           globl     _menu_icheck
  27. _menu_icheck:
  28.           move.l    #$1F020101,d0       ; AControl  31,2,1,1
  29.           bra.b     menu_do
  30.           globl     _menu_ienable
  31. _menu_ienable:
  32.           move.l    #$20020101,d0       ; AControl  32,2,1,1
  33.           bra.b     menu_do
  34.           globl     _menu_tnormal
  35. _menu_tnormal:
  36.           move.l    #$21020101,d0       ; AControl  33,2,1,1
  37. menu_do:
  38. ;          .cargs    #4,ptree.l,intin
  39.  
  40. ptree            =    4
  41. intin            =    8
  42.  
  43.           lea        intin(sp),a1       ; -> intin
  44.           lea        ptree(sp),a0       ; -> addrin
  45.           jmp        aes_do
  46.  
  47. ;-------------------------------------------------------------------------
  48. ; menu_text
  49. ;-------------------------------------------------------------------------
  50.  
  51.           globl     _menu_text
  52. _menu_text:
  53. ;          .cargs    #8,ptree.l,item,ptext.l
  54.  
  55. ptree             =     8
  56. item            =    12
  57. ptext            =    14
  58.  
  59.           link        a6,#-2
  60.           move.l    #$22010102,d0       ; AControl  34,1,1,2
  61.           move.l    ptext(a6),-(sp)    ; The 2 pointers are not contiguous
  62.           move.l    ptree(a6),-(sp)    ; on entry call stack, make them so.
  63.           moveq.l    #-2,d1                ;  = intout
  64.           move.l    sp,a0                ; -> addrin (we just built it)
  65.           lea        item(a6),a1        ; -> intin
  66.           jsr        aes_call
  67.  
  68.           move.w    -2(a6),d0
  69.           unlk        a6
  70.           rts
  71.  
  72. ;          end of code
  73.  
  74.